Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/tpascal/vbdll/form1.frm

Visual Basic Form | 1995-03-29 | 4.9 KB | 140 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   4365
   ClientLeft      =   1080
   ClientTop       =   1485
   ClientWidth     =   7335
   Height          =   4770
   Left            =   1020
   LinkTopic       =   "Form1"
   ScaleHeight     =   4365
   ScaleWidth      =   7335
   Top             =   1140
   Width           =   7455
   Begin CommandButton Command3
      Caption         =   "Call Min/Max Functions"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   3180
      Width           =   2475
   End
   Begin CommandButton Command2
      Caption         =   "Call Array Function"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   2160
      Width           =   2475
   End
   Begin CommandButton Command1
      Caption         =   "Call RTrim Function"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   1200
      Width           =   2475
   End
   Begin CommandButton cmdTestPassword
      Caption         =   "Call GetPassword Function "
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2475
   End
   Begin Label Label5
      Caption         =   "The code is in each button's click event.  Watch the debug window to see whats happening. "
      ForeColor       =   &H00800000&
      Height          =   435
      Left            =   120
      TabIndex        =   8
      Top             =   3840
      Width           =   6075
   End
   Begin Label Label4
      Caption         =   "Passes and returns integers."
      Height          =   435
      Left            =   2820
      TabIndex        =   7
      Top             =   3180
      Width           =   4095
   End
   Begin Label Label3
      Caption         =   "Passes a user defined type array to the dll to be loaded with all files in the current directory.  This example passes fixed-length strings, which don't have a null-terminator at the end."
      Height          =   855
      Left            =   2820
      TabIndex        =   6
      Top             =   2100
      Width           =   4095
   End
   Begin Label Label2
      Caption         =   "Passes a regular VB string 'Dim S as string' to the dll to be trimmed.  The function passes back a regular VB string."
      Height          =   615
      Left            =   2880
      TabIndex        =   5
      Top             =   1140
      Width           =   4095
   End
   Begin Label Label1
      Caption         =   "Uses a Delphi form to get the password.  This example passes a null-terminated string."
      Height          =   615
      Left            =   2880
      TabIndex        =   4
      Top             =   120
      Width           =   4155
   End
Option Explicit
Declare Function GetPassword Lib "vbdll.dll" (ByVal Password As String) As Integer
Declare Function RTrimStr Lib "vbdll.dll" (s As String) As String
Declare Function MinInt Lib "vbdll.dll" (i As Integer, j As Integer) As Integer
Declare Function MaxInt Lib "vbdll.dll" (ByVal i As Integer, ByVal j As Integer) As Integer
Declare Function GetDirEntries Lib "vbdll.dll" (s$, DirInfoArray() As Any) As Integer
Sub cmdTestPassword_Click ()
Const MB_OK = 0
Const MB_ICONEXCLAMATION = 48
Dim DgDef, Msg, Response, Title, Rtn As Integer
Dim ExpectedPassword As String
    ExpectedPassword = "MyPassword"
    'Rtn = GetPassword("MyPassword")    'This also works
    Rtn = GetPassword(ExpectedPassword)
    Debug.Print
    Debug.Print "Password Expected string passed to function: "; ExpectedPassword
    Debug.Print "Returned an integer of :"; Rtn
    Debug.Print
    Debug.Print
End Sub
Sub Command1_Click ()
Dim s As String, s1 As String
    s = "This is a variable length string.     "
    s1 = RTrimStr(s)
    Debug.Print "Orig String Length: "; Len(s)
    Debug.Print "Orig String: "; " "; s
    Debug.Print "Trimmed String Length: "; Len(s1)
    Debug.Print "Trimmed String: "; " "; s1
End Sub
Sub Command2_Click ()
Dim i As Integer, j As Integer, k As Integer, s$
ReDim arrFileInfo(1 To 100) As FileInfoStruct
    s$ = "*.*"
    i = GetDirEntries(s$, arrFileInfo())
    Debug.Print ""
    Debug.Print ""
    Debug.Print "i := "; i
    For j = 1 To i
        Debug.Print j; ") "; arrFileInfo(j).Name; "    "; arrFileInfo(j).Size; "    "; arrFileInfo(j).Date; "    "; arrFileInfo(j).Time
    Next j
End Sub
Sub Command3_Click ()
Dim i As Integer, j As Integer, k As Integer
    i = 55
    j = 34
    k = MaxInt(i, j)
    Debug.Print
    Debug.Print "Numbers passed to MinInt function: "; i, j
    Debug.Print "Value returned: "; " "; k
    Debug.Print
    Debug.Print
End Sub